Imports System.Data.SqlClient
Public Class MarcasComercial

    Public Function GenerarMarcaComercial(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteDataset(My.Settings.MiCadena, _
        CommandType.StoredProcedure, "MarcaComercialGenerar", New SqlParameter("@CodRS", Dat(0)), _
        New SqlParameter("@Nom", Dat(1)), New SqlParameter("@Tip", Dat(2)), New SqlParameter("@Obs", Dat(3)))
        Return DS
    End Function

    Public Function ModificarMarcaComercial(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteDataset(My.Settings.MiCadena, _
        CommandType.StoredProcedure, "MarcaComercialModificar", New SqlParameter("@CodMC", Dat(0)), _
        New SqlParameter("@CodRS", Dat(1)), New SqlParameter("@Nom", Dat(2)), New SqlParameter("@Tip", Dat(3)), _
        New SqlParameter("@Obs", Dat(4)))
        Return DS
    End Function

    Public Function ObtenerMarcasComerciales(ByVal ParamArray Dat() As String)
        Dim DS As New DataSet
        DS = Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteDataset(My.Settings.MiCadena, _
        CommandType.StoredProcedure, "MarcasComercialesObtener", New SqlParameter("@CodMC", Dat(0)), _
        New SqlParameter("@NomIns", Dat(1)), New SqlParameter("@Tip", Dat(2)))
        Return DS
    End Function
End Class
